home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch17 / 8Sph.ray < prev    next >
Text File  |  1999-07-06  |  2KB  |  70 lines
  1. Viewpoint(1000, 1.1, -0.5)
  2. AmbientLight(50, 50, 50)
  3. LightSource(-1000, -500, 1000, 255, 255, 255)
  4. LightSource(1000, -500, 1000, 255, 255, 255)
  5. Sphere(40, -50, -50, -50, 
  6.   0.1, 0.1, 0.1, ' Ambient.
  7.   0.1, 0.1, 0.1, ' Diffuse.
  8.   20, 0.35,      ' Specular.
  9.   0, 0, 0,       ' Reflected.
  10.   3, 1, 1.4,     ' TransN, n1, n2.
  11.   0, 0, 0        ' Tansmission.
  12. )
  13. Sphere(40, 50, -50, -50, 
  14.   0.6, 0.1, 0.1, ' Ambient.
  15.   0.6, 0.1, 0.1, ' Diffuse.
  16.   20, 0.35,      ' Specular.
  17.   0, 0, 0,       ' Reflected.
  18.   3, 1, 1.4,     ' TransN, n1, n2.
  19.   0, 0, 0        ' Tansmission.
  20. )
  21. Sphere(40, 50, 50, -50, 
  22.   0.6, 0.6, 0.1, ' Ambient.
  23.   0.6, 0.6, 0.1, ' Diffuse.
  24.   20, 0.35,      ' Specular.
  25.   0, 0, 0,       ' Reflected.
  26.   3, 1, 1.4,     ' TransN, n1, n2.
  27.   0, 0, 0        ' Tansmission.
  28. )
  29. Sphere(40, 50, 50, 50, 
  30.   0.6, 0.6, 0.6, ' Ambient.
  31.   0.6, 0.6, 0.6, ' Diffuse.
  32.   20, 0.35,      ' Specular.
  33.   0, 0, 0,       ' Reflected.
  34.   3, 1, 1.4,     ' TransN, n1, n2.
  35.   0, 0, 0        ' Tansmission.
  36. )
  37. Sphere(40, 50, -50, 50, 
  38.   0.6, 0.1, 0.6, ' Ambient.
  39.   0.6, 0.1, 0.6, ' Diffuse.
  40.   20, 0.35,      ' Specular.
  41.   0, 0, 0,       ' Reflected.
  42.   3, 1, 1.4,     ' TransN, n1, n2.
  43.   0, 0, 0        ' Tansmission.
  44. )
  45. Sphere(40, -50, 50, 50, 
  46.   0.1, 0.6, 0.6, ' Ambient.
  47.   0.1, 0.6, 0.6, ' Diffuse.
  48.   20, 0.35,      ' Specular.
  49.   0, 0, 0,       ' Reflected.
  50.   3, 1, 1.4,     ' TransN, n1, n2.
  51.   0, 0, 0        ' Tansmission.
  52. )
  53. Sphere(40, -50, 50, -50, 
  54.   0.1, 0.6, 0.1, ' Ambient.
  55.   0.1, 0.6, 0.1, ' Diffuse.
  56.   20, 0.35,      ' Specular.
  57.   0, 0, 0,       ' Reflected.
  58.   3, 1, 1.4,     ' TransN, n1, n2.
  59.   0, 0, 0        ' Tansmission.
  60. )
  61. Sphere(40, -50, -50, 50, 
  62.   0.1, 0.1, 0.6, ' Ambient.
  63.   0.1, 0.1, 0.6, ' Diffuse.
  64.   20, 0.35,      ' Specular.
  65.   0, 0, 0,       ' Reflected.
  66.   3, 1, 1.4,     ' TransN, n1, n2.
  67.   0, 0, 0        ' Tansmission.
  68. )
  69.  
  70.